COMFIX.LSP[LSP,LSP] - www.SailDart.org

perm filename COMFIX.LSP[LSP,LSP] blob sn#193626 filedate 1975-12-20 generic text, type C, neo UTF8

COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002
C00004 ENDMK
C⊗;

(DEFPROP ISSUBR
 (LAMBDA (X) (GET X (QUOTE SUBR)))
EXPR)

(DEFPROP OUTCALL
 (LAMBDA (NUM FUN)
  (COND ((ISSUBR FUN) (OUTINST (LIST (QUOTE PUSHJ) (QUOTE P) (LIST (QUOTE SUBR) FUN))))
        (UPPERFLG (OUTINST (LIST (QUOTE XCT) 0 (LIST (QUOTE CALL) NUM (LIST (QUOTE E) FUN)))))
        (T (OUTINST (LIST (QUOTE CALL) NUM (LIST (QUOTE E) FUN))))))
EXPR)

(DEFPROP OUTJCALL
 (LAMBDA (NUM FUN)
  (COND ((ISSUBR FUN) (OUTINST (LIST (QUOTE JRST) 0 (LIST (QUOTE SUBR) FUN))))
        (UPPERFLG (OUTINST (LIST (QUOTE XCT) 0 (LIST (QUOTE JCALL) NUM (LIST (QUOTE E) FUN)))))
        (T (OUTINST (LIST (QUOTE JCALL) NUM (LIST (QUOTE E) FUN))))))
EXPR)